5 REM PROGRAMM ZUM ERZEUGEN EINES
6 REM     23, READ ERROR
7 :
10 POKE 56,31:POKE 52,31:CLR:OPEN 1,8,15,"I"
20 FORX=0TO80:READA:POKE32768+X,A:NEXT
30 INPUT"[147] TRACK FUER ERROR 23";T
40 INPUT"SEKTOR FUER ERROR 23";S
50 POKE 32777,T:POKE 32834,T:POKE 32781,S
60 RESTORE
70 FORX=0TO80:PRINT#1,"M-W"CHR$(X)CHR$(5)CHR$(1)CHR$(PEEK(X+32768)):NEXT
80 PRINT:PRINT:PRINT"PROGRAMM STARTET"
90 PRINT#1,"M-E"CHR$(64)CHR$(5):CLOSE1:END
100 DATA165,18,133,22,165,19,133,23,169,35,133,24,169,0,133,25,32,39
110 DATA 245,32,86,245,162,0,202,208,253
120 DATA 173,12,28,41,31,9,192,141,12,28,169,255,141,3,28,169,85,141,1
130 DATA 28,80,254,184,80,254,184,80,254,184,32,0,254,76,158,253,234,234
140 DATA 234,169,35,133,10,169,224,133,2,165,2,48,252,96,0,0,0